home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / DAYOWEEK.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-06-04  |  1.0 KB  |  38 lines
  1. CLS
  2. CUR.DATE$ = DATE$
  3. MONTH = VAL(LEFT$(CUR.DATE$,2))
  4. DAY = VAL(MID$(CUR.DATE$,4,2))
  5. YEAR = VAL(RIGHT$(CUR.DATE$,2))
  6. CALL DAYOFWEEK
  7. PRINT "TODAY IS : ";DAY$
  8. END
  9.  
  10.  
  11. INPUT "ENTER MONTH    :";month
  12. INPUT "ENTER YEAR [99]:";year
  13. INPUT "ENTER DAY      :";day
  14. CALL DAYOFWEEK
  15. PRINT "THE DAY IS :";day$
  16. INPUT "ANOTHER DATE ? [Y/N] ";ANSWER$
  17. IF UCASE$(ANSWER$) = "Y" THEN
  18.    RUN
  19. ELSE
  20.    PRINT:PRINT "PROGRAM ENDING..."
  21. END IF
  22. '
  23. '  To use: define day,month,year as variables holding 2 digit numbers
  24. '          (check validity first) and expect day$ to return the
  25. '          day-name for that specific date.
  26. '--- This subroutine returns the day-name for a specified date -----
  27. SUB DAYOFWEEK
  28.  shared month,day,year,day$
  29.  local c,j,d$()
  30.  dim d$(7):c = 19 ' c=18 for the 1800's
  31.  d$(0)="SUNDAY":d$(1)="Monday":d$(2)="Tuesday":d$(3)="Wednesday"
  32.  d$(4)="Thursday":d$(5)="Friday":d$(6)="Saturday"
  33.  month = month-2:if month<1 then month=month+12:year =year-1
  34.  j=int(2.6*month-.19)+day+year+int(year/4)+int(c/4)-2*c
  35.  j=j-int(j/7)*7
  36.  day$=d$(j)
  37. END SUB
  38.